VERSION 5.00
Begin VB.Form frmFileApprove 
   Caption         =   "Extracting XML data..."
   ClientHeight    =   1830
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3045
   LinkTopic       =   "Form1"
   ScaleHeight     =   1830
   ScaleWidth      =   3045
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command1 
      Caption         =   "Approve File"
      Height          =   495
      Left            =   720
      TabIndex        =   0
      Top             =   600
      Width           =   1335
   End
End
Attribute VB_Name = "frmFileApprove"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Sub Command1_Click()
    Dim objTest As clsFileApprove
    Dim strErrMsg As String
    
    Set objTest = New clsFileApprove
    'test for file format errors
    'If objTest.CreateErrorFile(1, "01", "14", "Some Error Reason", "4", "Just do not do it again", strErrMsg) Then
    'test for data validation errors
    If objTest.CreateApproveFile(12, strErrMsg) Then
        MsgBox "It worked!"
    Else
        MsgBox "Didn't work cos: " & strErrMsg
    End If
    
    Set objTest = Nothing
End Sub
